home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Visio 2000 Store.xpl < prev    next >
Text File  |  2000-11-12  |  1KB  |  51 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="4"
  3. "COUNT"="1"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office 2000\Visio 2000"
  5. "NAME"="Visio 2000 Store"
  6. "VERSION"="1.01"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Drawings Store"
  9. "DESCRIPTION 1"="To change Visio 2000's drawings storage folder, browse to location of choice."
  10. "AUTHOR"="Ojatex@aol.com"
  11. "CONTACTURL"="http://members.aol.com/ojatex/"
  12. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  13. "COMMENT 1"="For X-Setup program information, go to http://www.xteq.com"
  14. "COMMENT 2"="Thanks to CptSiskoX for tip."
  15.  
  16. sPath="HKCU\Software\Visio\Visio 2000\application\"
  17.  
  18. sDrawing="HKCU\Software\Visio\Visio 2000\application\DrawingsPath"
  19.  
  20. Sub Plugin_Initialize 
  21.  if RegPathExists(sPath) then
  22.   s=RegReadValue(sDrawing)
  23.   SetUIElement 1,s
  24.  
  25.  else
  26.   Disable
  27.  end if
  28. End Sub
  29.  
  30. Sub Plugin_CheckData(ElementIndex)
  31. End Sub
  32.  
  33. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  34.  s=GetUIElement(1)
  35.  if len(s)=0 then
  36.   Call MsgError("Unable to update information - Path for Drawings is not valid")
  37.  else
  38.  
  39.   if Right(s,1)="\" then
  40.    s=left(s,len(s)-1)
  41.   end if
  42.   Call RegWriteValue(sDrawing,s,1)
  43.  
  44.  end if
  45.  
  46.  
  47. End Sub
  48.  
  49. Sub Plugin_Terminate 
  50. End Sub
  51.